// // LIBIDO DE XZIRA // // 10 - normal, la chica quiere marcha // 20 - la cosa se calienta // 30 - la ropa sobra // 40 - desnudarse // 50 - juegos preliminares // 60 - caliente... caliente... // 70 - empieza la "faena" // 80 - en plena "faena" // 90 - éxtasis // 100 - ? Sub XZIRA_Examinar() Declare(ret) ret:=FALSE Select ParseNombre1 Case "CARA" Print("Enmarcado por una larga melena, la cara de Xzira es una mezcla de contrastes.") Print(" Los fuertes rasgos humanos se suavizan y se mezclan con los rasgos típicamente élficos.") Print(" Unos ojos color canela te miran penetrantes y sus labios entreabiertos dejan ver") Print(" unos dientes perlados." + CR) ret:=TRUE Case "OJOS" Print("Unos acuosos ojos color canela que te miran con deseo y recorren tu cuerpo sin dejar") Print(" un solo rincón sin explorar." + CR) ret:=TRUE Case "BOCA" Print("Te fijas en sus labios carnosos, entreabiertos. Consciente de tu mirada, Xzira sonríe") Print(" y desliza su lengua, despacio, humedeciéndolos. Estás seguro de que los labios de Xzira no") Print(" son lo único que se está humedeciendo en esta habitación." + CR) ret:=TRUE Case "PELO" Print("El pelo de la semielfa es largo y sedoso y cubre de forma turbadora parte de sus hombros." + CR) ret:=TRUE Case "OREJAS" Print("Las orejas de Xzira son ligeramente puntiagudas, rasgo heredado de la parte elfa que corre por su sangre." + CR) ret:=TRUE Case "ROPA" If PSI["XZIRA"].Vestido Then Print("Es una minúscula prenda de cuero. Está formada por dos piezas: la superior le cubre sus bien formados pechos") Print(" y la inferior apenas oculta sus sinuosas caderas y menos sus bronceadas piernas." + CR) Else Print("No ves el vestido de Xzira por aquí, seguramente esté perdido en la penumbra de uno de los oscuros rincones") Print(" de esta habitación." + CR) EndIf ret:=TRUE Case "PIERNAS" Print("Bien contorneadas y bronceadas." + CR) ret:=TRUE Case "PECHOS" If PSI["XZIRA"].Vestido Then Print("Puedes adivinar, bajo la prenda que apenas los cubre, unos redondos y turgentes senos." + CR) Else Print("Miras con deseo los bien formados pechos de Xzira. Palpitan con calidez como si tu mirada los") Print(" incitara a ello." + CR) EndIf ret:=TRUE Case "VIENTRE" Print("Te agrada ver el liso vientre de Xzira que se contrae a ritmo de su respiración." + CR) ret:=TRUE Case "PUBIS" If PSI["XZIRA"].Vestido Then Print("Una minúscula prenda oculta el tesoro que te gustaría vislumbrar." + CR) Else Print("Entre los muslos de la semielfa observas el valle que forma su excaso vello púbico.") Print(" Las sombras apenas ocultan la grieta de placer donde se guardan promesas cálidas y húmedas." + CR) EndIf ret:=TRUE Case "CULO" If PSI["XZIRA"].Vestido Then Print("La prenda que lo cubre cede ante su redondez y firmeza." + CR) Else Print("Es un bonito trasero, perfectamente formado y firme." + CR) EndIf ret:=TRUE EndSelect Return ret Sub XZIRA_Tocar() Declare(ret) Declare(psi) psi:="XZIRA" ret:=FALSE Select ParseNombre2 Case "CARA" Print("Acaricias suavemente la cara de la semielfa. Ella parece temblar ante el roce de tus fuertes manos." + CR) ret:=TRUE Case "PELO" Print("Su sedoso pelo fluye entre tus dedos." + CR) ret:=TRUE Case "PIERNAS" Print("Deslizas tu mano, suavemente, desde las pantorrillas hasta sus cálidos muslos.") Print(" Ella se estremece y gime de placer." + CR) AumentaLibidoPSI(psi,0,50,10) AumentaLibidoPSI(PSIJugador,0,50,10) ret:=TRUE Case "PECHOS" If PSI[psi].Vestido Then If PSI[psi].Libido<20 Then Print("Suavemente Xzira te agarra la mano y la retira." + CR) HablaPSI("Uhmmm... aún no...","dice en un susurro.") Else Print("Tus manos juguetean con los pechos de Xzira contenidos tras la ligera prenda.") Print(" La semielfa sonría juguetona y se deja hacer." + CR + CR) AumentaLibidoPSI(psi,0,50,10) AumentaLibidoPSI(PSIJugador,0,50,10) EndIf Else Print("Con los ojos entreabiertos posas tus manos sobre sus bien formados pechos. Están calientes y palpitan de placer.") Print(" Sientes como sus pezones se endurecen al contacto con tus dedos." + CR) HablaPSI("Oooooohhh... uuhmmm...","la semielfa agarra tus manos y las aprieta más fuertemente contra sí misma.") AumentaLibidoPSI(psi,0,70,10) AumentaLibidoPSI(PSIJugador,0,70,10) EndIf ret:=TRUE Case "VIENTRE" Print("Tu mano se posa sobre su vientre y notas como los poderosos abdominales bajo su piel se contraen al ritmo de su respiración." + CR) ret:=TRUE Case "PUBIS" If PSI[psi].Vestido Then HablaPSI("Espera un poco. Aún no...","susurra en tono juguetón al tiempo que retira tu ávida mano.") Else Print("Tus dedos buscan la calidez entre las piernas de Xzira. Los deslizas sobre la suavidad del vello que cubre la parte baja de su vientre.") Print(" Ella no se resiste y abre sus muslos incitándote a que sigas. Tus dedos alcanzan el rincón del placer que sólo Xzira te puede dar." + CR) HablaPSI("No te pares...","") Print("La sangre bombea más deprisa en tu corazón. Tus dedos ahora acarician unos labios húmedos y calientes.") Print(" Los separan y se internan en profundidades aún más insondables. Pronto las caricias siguen un ritmo lento pero constante.") Print(" Xzira gime mientras abre más sus piernas. Su respiración también está muy acelerada." + CR) AumentaLibidoPSI(psi,0,70,10) AumentaLibidoPSI(PSIJugador,0,70,10) EndIf ret:=TRUE Case "CULO" If PSI[psi].Vestido Then If PSI[psi].Libido<20 Then HablaPSI("¡Ey!, ¡esa mano!. No seas malo.","Xzira aparta tu mano antes de que esta llegue a su 'destino'.") Else Print("La semielfa no se resiste a que acaricies su firme trasero. La acercas cada vez más a tí mientras tus") Print(" manos juguetean con la parte trasera de su vestido." + CR) AumentaLibidoPSI(psi,0,50,10) AumentaLibidoPSI(PSIJugador,0,50,10) EndIf Else Print("Cálido y firme. Tus dedos se pierden entre la grieta que separa los dos montículos." + CR) HablaPSI("Aaahhh... oooohhh...","sientes como se acelera su respiración mientras sigues acariciando la firmeza de su trasero") AumentaLibidoPSI(psi,0,70,10) AumentaLibidoPSI(PSIJugador,0,70,10) EndIf ret:=TRUE EndSelect Return ret Sub XZIRA_Saborear() Declare(ret) Declare(psi) psi:="XZIRA" ret:=FALSE Select ParseNombre2 Case "CARA" Print("Rozas la cara de la semielfa con tu húmeda lengua. Ella se estremece." + CR) AumentaLibidoPSI(psi,0,40,10) AumentaLibidoPSI(PSIJugador,0,40,10) ret:=TRUE Case "PELO" Print("Puaggg... ahora tienes toda la boca llena de pelos..." + CR) ret:=TRUE Case "PIERNAS" Print("Tu lengua lame los sedosos y cálidos muslos de Xzira.") print(" Su suave piel se humedece al contacto contacto con tu lengua ávida." + CR) AumentaLibidoPSI(psi,0,50,10) AumentaLibidoPSI(PSIJugador,0,50,10) ret:=TRUE Case "PECHOS" If PSI[psi].Vestido Then Print("Eso es bastante difícil de hacer si no le quitas primero la ropa." + CR) Else Print("Tus labios rozan con suavidad uno de los pechos de Xzira. Notas que al contacto con tu lengua") Print(" sus pezones se yerguen y se endurecen. La semielfa gime de placer. Tanteas su otro seno mientras lo") Print(" mordisqueas ligeramente como si fuese una fruta madura." + CR + CR) AumentaLibidoPSI(psi,0,70,10) AumentaLibidoPSI(PSIJugador,0,70,10) EndIf ret:=TRUE Case "VIENTRE" Print("Tu lengua se desliza juguetona por el vientre de Xzira. Ella se contonea de forma juguetona mientras") Print(" tú sigues tu recorrido hacia abajo... muy muy abajo..." + CR) AumentaLibidoPSI(psi,0,50,10) AumentaLibidoPSI(PSIJugador,0,50,10) ret:=TRUE Case "PUBIS" If PSI[psi].Vestido Then Print("Una ligera prenda de ropa te impide realizar la 'operación'." + CR) Else Print("Tu cabeza se inclina, tu boca buscando la calidez que se esconde entre las piernas de la semielfa. Deslizas la lengua, despacio, sobre la suavidad del vello que cubre su pubis.") Print(" Ella abre sus muslos y tus dedos alcanzan sus labios inferiores. Los separas y comienzas a introducir tu lengua más adentro al tiempo que jugueteas con ella." + CR) HablaPSI("Oooooohhhh... aaahhhhhh...","la semielfa parece extasiada.") Print("Tus labios besan ahora sus labios húmedos y calientes.") Print(" Los vuelves a separar y te internas en profundidades aún más insondables. Tus caricias siguen un ritmo lento pero constante.") Print(" Xzira gime, su respiración ahora acelerada por tus hábiles 'jugueteos'." + CR) AumentaLibidoPSI(psi,0,80,10) AumentaLibidoPSI(PSIJugador,0,80,10) EndIf ret:=TRUE Case "CULO" If PSI[psi].Vestido Then Print("No podrás hacerlo a través del vestido." + CR) Else Print("Su piel es tersa y se desliza suave y cálida bajo tu lengua. Sigues la línea donde se") Print(" únen ambos montículos delizándola hasta llegar a la espalda de la semielfa." + CR) AumentaLibidoPSI(psi,0,70,10) AumentaLibidoPSI(PSIJugador,0,70,10) EndIf ret:=TRUE EndSelect Return ret Sub XZIRA_Besar() Declare(psi) psi:="XZIRA" If PSI[psi].Libido>40 Then Print("Buscas con pasión desbocada los labios de la semielfa. Ella comparte tus oscuros deseos porque al instante vuestras bocas se unen") Print(" y notas como su lengua busca ávidamente la tuya.") Else Print("Con lentitud te acercas a Xzira. Tus labios buscan los suyos. Sientes que ella también desea esto porque se acerca a tí un poco más.") If PSI[psi].Vestido Then Print(" La estrechas contra tí en un profundo abrazo mientras vuestros labios se rozan, lentamente. El tiempo parece pasar muy despacio.") AumentaLibidoPSI(psi,0,40,10) AumentaLibidoPSI(PSIJugador,0,40,10) Else Print(" Sientes su cuerpo desnudo y caliente que te envuelve a la vez que vuestros labios se juntan en un apasionado y húmedo beso.") Print(" Tu lengua juguetea con la suya en una danza que deseas no acabe nunca.") AumentaLibidoPSI(psi,0,50,10) AumentaLibidoPSI(PSIJugador,0,50,10) EndIf EndIf Print() Return // recibe: // 'modo' 0=si se desnuda ella sola, 1=la desnuda el jugador Sub XZIRA_Desnudar(modo) Declare(psi) psi:="XZIRA" Select modo Case 0 HablaPSI("Uhmmm... hace calor aquí...","") Print("Ves como Xzira cruza las manos por detrás de la espalda y como lentamente cae la prenda") Print(" que cubría sus amplios pechos. Observas que tiene una piel sedosa y suave. La semielfa") Print(" desliza sus manos hacia abajo, buscando un cierre a la altura de su cintura. Este también cede") Print(" bajo sus hábiles dedos, al igual que tus sentidos al contemplar el escultural cuerpo de la semielfa") Print(" ahora totalmente desnudo." + CR) PSI[psi].Vestido:=FALSE Case 1 If PSI[psi].Libido<30 Then Print("Xzira se aparta de tí, suavemente." + CR) HablaPSI("¡Qué prisa tienes hombretón!","dice la semielfa con una sonrisa pícara en los labios.") Else If PSI[psi].Vestido Then Print("Con suavidad buscas los cierres. Con un hábil movimiento deslizas tus manos a la espalda de la semielfa") Print(" y sueltas la minúscula prenda que cubre sus pechos. Tus dedos rodean sus hombros y bajan, acariciando uno") Print(" de su duros pezones, hacia la hebilla que sujeta la minifalda." + CR) HablaPSI("Lo haces bien... hombretón...","pronuncia con voz juguetona Xzira.") Print("Sientes el contraste del tacto entre el frío metal de la hebilla y la calidez del vientre de la semielfa.") Print(" De un tirón desprendes la minifalda y su frondoso pubis queda al descubierto entre las dos columnas de sus") Print(" torneadas piernas." + CR) PSI[psi].Vestido:=FALSE AumentaLibidoPSI(psi,0,50,10) AumentaLibidoPSI(PSIJugador,0,50,10) Else Print("Xzira ya está desnuda." + CR) EndIf EndIf EndSelect Return Sub XZIRA_Hablar(frase) Declare(ret) Declare(psi) Declare(frase0) psi:="XZIRA" ret:=FALSE // guardamos el ParseFrase actual por si no le podemos dar respuesta frase0:=ParseFrase // iniciamos otro nivel de parseado ParseVerbo:="" ParseNombre1:="" ParseAdjetivo1:="" ParseNombre2:="" ParseAdjetivo2:="" ParsePreposicion:="" Parse(frase) // MASTURBAR // ---> TOCAR PENE If ParseVerbo="MASTURBAR" Then ParseVerbo:="TOCAR" ParseNombre1:="PENE" ParseNombre2:="" EndIf If ((ParseVerbo="DECIR") | (ParseVerbo="")) & (ParseNombre1="NOMBRE") Then ParseVerbo:="COMO" ParseNombre1:="LLAMAS" EndIf Select ParseVerbo Case "BESAR" Select ParseNombre1 Case "" Print("Xzira se abraza fuertemente a tí, ves como abre su boca, como su lengua se mueve juguetona y humedece sus carnosos labios.") Print(" Se acerca más a tí y juntáis vuestros labios en un profundo beso.") If Not(PSI[psi].Vestido) Then Print(" Sientes como su cuerpo desnudo se estremece bajo tus fuerte brazos.") EndIf If PSI[psi].Libido>20 Then Print(" Su lengua busca ávidamente la tuya. Ambas se entrelazan durante momentos en los que alcanzas un profundo éxtasis.") Endif Print() AumentaLibidoPSI(psi,0,40,10) AumentaLibidoPSI(PSIJugador,0,40,10) Case "PENE" XZIRA_Chupar() Case * HablaPSI("No voy a besar eso.","") EndSelect ret:=TRUE Case "SABOREAR" Select ParseNombre1 Case "" HablaPSI("¿Qué quieres que chupe?","la sonrisa de la semielfa no deja lugar a dudas de qué es lo que ha entendido.") Case "PENE" XZIRA_Chupar() Case * HablaPSI("No quiero chupar eso.","") EndSelect ret:=TRUE Case "TOCAR" Select ParseNombre1 Case "" HablaPSI("¿Qué quieres que toque?","") Case "PENE" IF PSI[psi].Libido>30 Then If PSI[PSIJugador].Vestido Then Print("Unos hábiles dedos se deslizan sobre la ropa hacia tu bajo vientre y se paran allí.") Print(" Luego comienzan a moverse acariciándote. Notas un placer indescriptible antes de que la semielfa") Print(" cese sus caricias." + CR) Else Print("Xzira coge con suavidad tu miembro entre sus suaves manos. Las sientes cálidas y placenteras.") Print(" Sus hábiles dedos comienzan a imprimir un lento vaivén provocando que explote el ansia en tu interior,") Print(" como un volcán que estuviese a punto de entrar en erupción." + CR) HablaPSI("¿Te gusta?","") Print("Las manos de la semielfa continúan con sus caricias durante lo que parece una eternidad. Luego paran." + CR) EndIf AumentaLibidoPSI(psi,0,70,10) AumentaLibidoPSI(PSIJugador,0,100,10) If PSI[PSIJugador].Libido>90 Then Print("Tu verga estalla en una cascada de semen que se esparce por el suelo. Xzira suelta tu miembro que aún gotea." + CR) Epilogo5() Else If PSI[PSIJugador].Libido>80 Then Print("Puede que no aguantes más... estás a punto de entrar en erupción." + CR) EndIf EndIf Else HablaPSI("Todavía es pronto para ese tipo de juegos.","Xzira te guiña un ojo.") EndIf Case * HablaPSI("No sé si debería tocar eso.","") EndSelect ret:=TRUE Case "DESNUDAR" If PSI[psi].Vestido Then XZIRA_Desnudar(0) Else HablaPSI("¿Bromeas?. ¡Venga hombre! mírame bien...","Xzira ríe de tu ocurrencia.") EndIf ret:=TRUE Case "QUITAR" If ParseNombre1="ROPA" Then If PSI[psi].Vestido Then XZIRA_Desnudar(0) Else HablaPSI("¿Bromeas?. ¡Venga hombre! mírame bien...","Xzira ríe de tu ocurrencia.") EndIf EndIf ret:=TRUE Case "TUMBAR" If PSI[psi].Tumbado Then HablaPSI("Ya estoy tumbada... ¿por qué no vienes conmigo?","Xzira parece muy juguetona ahora.") Else HablaPSI("Como desees hombretón... ji ji","Xzira se tumba sobre la cama.") PSI[psi].Tumbado:=TRUE If Not(PSI[PSIJugador].Tumbado) Then Print("La semielfa extiende un brazo mientras con la otra mano palmea la cama al lado suyo." + CR) HablaPSI("¿Vienes?","") EndIf EndIf ret:=TRUE Case "LEVANTAR" If PSI[psi].Tumbado Then HablaPSI("Hmmmm... sí... ¿por qué no?","Xzira se levanta.") PSI[psi].Tumbado:=FALSE Else HablaPSI("Pero... ¡si ya estoy de pie!","Xzira te mira con sorpresa.") EndIf ret:=TRUE Case "COMO" If ParseNombre1="LLAMAS" Then HablaPSI("Me llamo Xzira, pero creo que eso ya lo sabes hombretón.","") Else HablaPSI("¿Cómo?","") Endif ret:=TRUE Case "DONDE" If ParseNombre1="NACISTE" Then HablaPSI("Nací en los bosques, crecí en los bosques y vivo en los bosques, ¿sacia esto tu curiosidad?","") Else HablaPSI("¿Qué intentas decirme?","") Endif ret:=TRUE EndSelect // restauramos el ParseFrase si no pudimos darle respuesta ParseFrase:=frase0 Return ret Sub XZIRA_Chupar() Declare(psi) psi:="XZIRA" If PSI[psi].Libido>30 Then If PSI[PSIJugador].Vestido Then HablaPSI("Tendrás que desnudarte...","dice la semielfa lanzándote una pícara mirada.") Else Print("Xzira acerca su boca hacia tu miembro. Su boca se abre y una lengua aterciopelada y deseosa comienza a acariciarlo.") Print(" Crees que ya vas a estallar de placer cuando Xzira lo introduce lentamente en su boca. Comienza un extraño baile en el que") Print(" tú eres sólo un juguete entre sus hábiles manos." + CR) HablaPSI("Hhhhmmmmffff... hmmmmmfff....","") Print("Humedad, calor, placer, todo se une al compás del extraño baile que los labios de Xzira aplican sobre tí." + CR) HablaPSI("¿Te ha gustado?","Xzira te mira relamiéndose las comisuras de los labios.") AumentaLibidoPSI(psi,0,70,10) AumentaLibidoPSI(PSIJugador,0,100,10) If PSI[PSIJugador].Libido>90 Then Print("No puedes aguantar más y tu miembro estalla en una cascada de semen que se esparce delante tuyo." + CR) Epilogo5() Else If PSI[PSIJugador].Libido>80 Then Print("Un espasmo casi incontrolable recorre tu bajo vientre." + CR) EndIf EndIf EndIf Else HablaPSI("Todavía es pronto para ese tipo de juegos.","Xzira te guiña un ojo.") EndIf Return Sub XZIRA_DarVaso() Declare(obj) obj:="VASO" Declare(psi) psi:="XZIRA" If OBJ[obj].Lleno="" Then HablaPSI("¿Para qué quiero un vaso vacío?","dice Xzira.") Else If PSI[psi].Bebido>2 Then HablaPSI("No quiero más, gracias. ¿Acaso quieres emborracharme?","dice Xzira entre risitas.") Else Print("Xzira contempla el vaso lleno de licor durante unos segundo y luego se lo bebe de un trago.") Print(" Cuando ha terminado lame los restos de licor que le han quedado en los labios") Print(" de forma provocativa." + CR) PSI[psi].Bebido:=PSI[psi].Bebido+1 OBJ[obj].Lleno:="" EndIf EndIf Print("Xzira te devuelve el vaso." + CR) Return Sub XZIRA_Masturbar() Declare(psi) psi:="XZIRA" If PSI[psi].Vestido Then HablaPSI("Si me quitas la ropa quizá resulte más placentero.","Xzira te observa con ojos maliciosos.") Else If PSI[psi].Libido<50 Then HablaPSI("No... aún no...","la semielfa no te deja hacer.") Else Print("Tus manos se introducen entre los muslos de la semielfa que se abren al contacto con tus dedos.") Print(" Buscas sus labios vaginales y los separas hábilmente con una mano mientras con la otra le frotas suavemente.") Print(" La semielfa comienza a gemir sus caderas se mecen rítmicamente. Introduces tu dedo y Xzira suspira y se balancea con más rapidez, como invitándote a seguir.") Print(" Sientes la humedad de sus entrañas, el calor de su piel, el olor del placer que ahora emana de la semielfa." + CR) AumentaLibidoPSI(psi,0,100,10) AumentaLibidoPSI(PSIJugador,0,100,10) If PSI[psi].Libido>80 Then HablaPSI("Aaaahhhh...Uuuufff","Xzira emite gemidos de placer.") Print("La semielfa agarra tu mano como queriendo impedir que la retires mientras los espasmos de placer sacuden su cuerpo desnudo.") Print(" Retiras lentamente la mano y observas como la semielfa abre sus ojos entrecerrados y te mira." + CR) EndIf If Random(0,1)=1 Then If PSI[PSIJugador].Vestido Then Print("Xzira introduce la mano en tu taparrabos y agarra tu miembro endurecido. Con lentitud comienza a frotarlo y se endurece más todavía.") Print(" Ella sonríe y tú entrecierras los ojos invadido por una oleada de placer." + CR) Else Print("Los hábiles dedos de la semielfa recorren tu endurecida verga antes de sujetarla y masajearla frenéticamente." + CR) EndIf If PSI[PSIJugador].Libido>90 Then Print("No aguantas más. Estallas en una cascada blanquecina. Xzira retira la mano." + CR) Epilogo5() Else If PSI[PSIJugador].Libido>80 Then Print("Gotas de sudor perlan tu frente al intentar controlar lo incontrolable." + CR) EndIf EndIf EndIf Endif EndIf Return Sub XZIRA_Tumbar() Declare(psi) psi:="XZIRA" If PSI[psi].Tumbado Then Print("Xzira te sonríe maliciosamente mientras acerca hacia tí su cálido cuerpo." + CR) Else Print("La semielfa se tumba junto a tí y te abraza rodeando tu poderoso torso con sus menudos brazos." + CR) PSI[psi].Tumbado:=TRUE EndIf If PSI[psi].Libido>40 Then If PSI[PSIJugador].Vestido Then HablaPSI("¿No tienes calor... hombretón?","Xzira te habla jugueteando con los cierres de tu taparrabos.") Else If PSI[PSIJugador].Libido>50 Then Print("Una de las manos de Xzira se desliza suavemente hacia tu entrepierna. Tu resistencia es nula ya que comprendes") Print(" enseguida las intenciones de ella. Sigue su movimiento deslizando su lengua y sus labios humedecidos, recorriendo") Print(" tu torso y luego tu vientre. La semielfa hunde su cabeza entre tus piernas engullendo con avidez tu miembro endurecido.") Print(" Todo queda relegado ante el placer que te proporciona ahora la semielfa con los hábiles movimientos de sus labios, acompasados con") Print(" los jugueteos de su lengua." + CR) Else Print("Xzira desliza suavemente su mano hacia tu entrepierna, buscando algo que, enseguida alcanzas a comprender por su pícara sonrisa.") Print(" Tu miembro se endurece cuando la semielfa comienza a masajearlo casi frenéticamente." + CR) EndIf AumentaLibidoPSI(psi,0,80,10) AumentaLibidoPSI(PSIJugador,0,100,10) If PSI[PSIJugador].Libido>80 Then Print("Tu miembro está a punto de estallar, algo bulle dentro de tí..." + CR) EndIf EndIf EndIf Return Sub XZIRA_Follar() Declare(psi) psi:="XZIRA" If PSI[PSIJugador].Vestido Then Print("Veo difícil que lo puedas hacer... ¡¡¡vestido!!!" + CR) Return EndIf If PSI[psi].Libido<70 Then Print("Abrazas a Xzira mostrando claramente tus intenciones." + CR) HablaPSI("No... ahora no... todavía no.","Xzira te aparta suavemente dándote a entender que no quiere seguirte el juego.") Print("Desistes de tu intento... de momento." + CR) Else If PSI[psi].Vestido Then HablaPSI("Sí... pero primero deja que me desnude o mejor... ¿porqué no me desnudas tú mismo?","la semielfa te mira con los ojos entrecerrados, como incitándote.") Else If Not(PSI[PSIJugador].Tumbado) & Not(PSI[psi].Tumbado) Then Print("Os tumbáis en la cama. ") PSI[PSIJugador].Tumbado:=TRUE PSI[psi].Tumbado:=TRUE Else If Not(PSI[PSIJugador].Tumbado) & PSI[psi].Tumbado Then Print("Te tumbas junto a Xzira. ") PSI[PSIJugador].Tumbado:=TRUE Else If PSI[PSIJugador].Tumbado & Not(PSI[psi].Tumbado) Then Print("Xzira se hecha en la cama junto a tí. ") PSI[psi].Tumbado:=TRUE EndIf EndIf EndIf // ...éxtasis If (PSI[psi].Libido<90) & (PSI[PSIJugador].Libido<90) Then Select Random(0,2) Case 0 Print("Agarras el cuerpo desnudo de Xzira y la besas con pasión. Ella te corresponde y sientes su piel cálida, casi enfebrecida, bajo tus dedos.") Case 1 Print("La semielfa se anticipa a tus intenciones y acerca su cuerpo cálido y desnudo ofreciéndose a tí. Sientes su sedosa piel que casi se funde con la tuya.") Case 2 Print("Te acercas a Xzira y obervas el brillo del deseo en sus ojos.") EndSelect Print(" Tu cuerpo se aprieta más contra el suyo. Por un momento te separas de su rostro y ves como ella tiene los ojos") Print(" entrecerrados, como en una invitación al placer." + CR) Print("Ella gime cuando la penetras. Su frente comienza a perlarse de sudor y notas como su respiración sigue el compás de tu ritmo.") Print(" Pronto entras tú también en un profundo éxtasis placentero y parece que vayas a estallar pero te contienes para prolongar más el momento.") Print(" La semielfa se agarra a tí y tú continuas el vaivén, primero lento pero luego más y más rápido." + CR) HablaPSI("Sigue... humppffff.... aaaahhh... sigue... no pares...","") AumentaLibidoPSI(psi,0,100,10) AumentaLibidoPSI(PSIJugador,0,100,10) If PSI[PSIJugador].Libido>80 Then Print("Algo está bullendo en tu entrepierna..." + CR) EndIf Else Print("El sudor se desliza por vuestros cuerpos entrelazados por la pasión.") Print(" Aumentas el vaivén y ella gime... gime... gime... no... puedes... aguantarlo... más" + CR) Print("Explotas. Humedad. Calor. Un último gemido. Silencio. Oscuridad... ¿oscuridad?" + CR + CR) Epilogo1() EndIf EndIf EndIf Return Sub XZIRA_Mueve() Declare(psi) psi:="XZIRA" Declare(t1) Declare(t2) t1:=20 // Xzira comienza a impacientarse si no se la ha 'calentado' bien t2:=30 // Xzira se irá si la situación es demasiado 'fría' If (turnos>5) & PSI[psi].Vestido Then XZIRA_Desnudar(0) EndIf Select turnos Case 5 If (PSI[psi].Estado<1) & (PSI[psi].Libido>10) Then HablaPSI("Ven aquí...","Xzira se acerca hacia tí, caminando como una gata en celo.") Print("Rodea tu poderoso cuello con sus delicados brazos y busca tus labios con los suyos.") Print(" Sus manos juguetean con tu nuca y sientes como su húmeda lengua se entrelaza con la tuya en un beso pasional.") Print(" La semielfa se aprieta más a tí y pasa una pierna alrededor tuyo, tú sujetas su muslo y continúais abrazados") Print(" durante una dulce eternidad." + CR) AumentaLibidoPSI(psi,0,40,10) AumentaLibidoPSI(PSIJugador,0,100,10) EndIf PSI[psi].Estado:=1 Case 7 If (PSI[psi].Estado<2) & (PSI[psi].Libido>20) Then If PSI[PSIJugador].Vestido Then HablaPSI("Uhmmm... veamos que tesoro guardas aquí.","Xzira mira tu taparrabos y sientes como si su mirada lo penetrara.") Print("Sus manos manipulan suavemente los cierres del taparrabos y este cae al suelo con poca resistencia de tu parte.") Print(" Xzira acaricia tu miembro que ahora está duro como la roca." + CR) OBJ["TAPARRABOS"].Puesto:=FALSE OBJ["TAPARRABOS"].Dejar("HABITACION") AumentaLibidoPSI(psi,0,60,10) AumentaLibidoPSI(PSIJugador,0,100,10) If PSI[PSIJugador].Libido>80 Then Print("Tu miembro parece querer liberarse de una tremenda presión que comienza a oprimirle..." + CR) EndIf EndIf EndIf PSI[psi].Estado:=2 Case 10 If (PSI[psi].Estado<3) & (PSI[psi].Libido>20) Then If Not(PSI[PSIJugador].Vestido) & (PSI[PSIJugador].Libido<80) Then Print("Xzira se arrodilla frente a tí, humedece sus labios y sujeta tu verga entre sus manos. Endurecida se la traga casi de golpe.") Print(" Notas la suavidad de sus húmedos labios y como su lengua juguetea con tu miembro. Un placer inmenso te invade mientras la semielfa") Print(" sigue chupando su juguete." + CR) HablaPSI("Hmmmffff... ¿te ha gustado?","Xzira vuelve a humedecer sus labios con la punta de la lengua mientras tú la observas extasiado.") AumentaLibidoPSI(psi,0,80,10) AumentaLibidoPSI(PSIJugador,0,100,10) If PSI[PSIJugador].Libido>80 Then Print("Gotas de sudor se deslizan por tu frente mientras tratas de aguantar lo máximo posible." + CR) EndIf Else HablaPSI("¿Por qué no te desnudas?. Quiero ver lo que tienes para mí...","la voz que Xzira susurra a tus oidos parece llena de deseo.") EndIf EndIf PSI[psi].Estado:=3 Case 15 If PSI[psi].Estado<4 Then If PSI[psi].Libido>80 Then Print("Xzira se acerca y observas como jadea de deseo. Extiende sus brazos hacia tí." + CR) HablaPSI("Ven aquí. Te deseo.","parece suplicarte.") Else If PSI[psi].Libido>50 Then If Not(PSI[PSIJugador].Vestido) Then Print("La semielfa desliza la mano por su liso vientre. Observas como se acaricia el vello púbico, jugueteando con sus dedos.") Print(" Sus labios se abren en un gesto de placer mientras uno de sus dedos se pierde más abajo y se introduce en las profundidades de su entrepierna." + CR) HablaPSI("Aaahhh.... uhmmmm... aahhhh... humpppffff","la semielfa se excita acariciándose y contoneando su cuerpo desnudo.") AumentaLibidoPSI(psi,0,100,10) AumentaLibidoPSI(PSIJugador,0,100,10) Else HablaPSI("Quiero que te desnudes ya... ¿no tienes calor?","Xzira te lanza una sonrisa maliciosa.") EndIf Else If Not(PSI[PSIJugador].Vestido) Then HablaPSI("Ven... juguemos un poco...","") Else HablaPSI("Desnúdate...","") EndIf EndIf EndIf EndIf PSI[psi].Estado:=4 Case * If turnos>t1 Then If turnos>t2 Then If PSI["XZIRA"].Libido<50 Then Epilogo5() EndIf Else If PSI[psi].Libido<50 Then If Random(1,2)=2 Then HablaPSI("Me aburro...","Xzira suelta un enorme bostezo.") DisminuyeLibidoPSI(psi,5) EndIf EndIf EndIf Else If PSI[psi].Libido>80 Then If Random(1,3)=3 Then HablaPSI("Hazme tuya... lo deseo.","Xzira contonea su esbelto cuerpo.") EndIf Else Select Random(1,10) Case 1 Print("Xzira te mira con deseo en sus ojos." + CR) Case 3 HablaPSI("Bésame...","el espectacular cuerpo de la semielfa vibra de pasión.") Case 7 Print("Xzira se acerca a tí y junta sus húmedos labios contra los tuyos en un beso enfebrecido por la pasión." + CR) EndSelect EndIf EndIf EndSelect Return // comprueba si nos referimos a una parte del cuerpo de Xzira Sub XZIRA_ParteCuerpo(s) Declare(ret) ret:=FALSE Select s Case "CARA" ret:=TRUE Case "PELO" ret:=TRUE Case "PIERNAS" ret:=TRUE Case "PECHOS" ret:=TRUE Case "VIENTRE" ret:=TRUE Case "PUBIS" ret:=TRUE Case "CULO" ret:=TRUE EndSelect Return ret